home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Environments / Clean 1.2.4 / IO Examples / Worm / wormshow.dcl < prev    next >
Text File  |  1997-05-01  |  481b  |  13 lines
  1. definition module wormshow
  2.  
  3. from    deltaPicture    import Picture, DrawFunction, Colour, RGB, BlackColour, Rectangle, Point
  4. import    wormstate
  5.  
  6. WormBackGroundColour    :==    RGB 1.0 1.0 0.75
  7. WormFontSize            :==    12
  8.  
  9. DrawGame                :: !Level !Food !Points !Worm !Lives                                -> [DrawFunction]
  10. DrawStep                :: !Bool !Food !Food !Points !Segment !Segment !Segment    !Picture    -> Picture
  11. EraseSegment            :: !Segment                                                !Picture    -> Picture
  12. DrawAnimation            :: !Int !Int                                            !Picture    -> Picture
  13.